---
title: "IHDP"
output: 
  flexdashboard::flex_dashboard:
    theme: lumen
    source_code: embed
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo=TRUE)
knitr::opts_chunk$set(include=TRUE)
knitr::opts_chunk$set(message=FALSE)
knitr::opts_chunk$set(warning=FALSE)
knitr::opts_chunk$set(tidy.opts=list(width.cutoff=80), tidy=TRUE)
knitr::opts_knit$set(root.dir='..')
```

```{r library, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(plotly)
library(kableExtra)
library(cobalt)
library(rstanarm)

source('library/library.r')
source('library/matching.R')
source('library/balance.R')
source('library/estimation.R')
```

```{r plotting, include=FALSE}
theme_set(theme_minimal())

# treat
treat_vals <- c(`0`='darkgrey', `1`='red4')
treat_labs <- c(`0`='Control', `1`='Treatment')
treat_col <- scale_color_manual('', values=treat_vals, labels=treat_labs)
treat_fill <- scale_fill_manual('', values=treat_vals, labels=treat_labs)
```

```{r data, include=FALSE}
ihdp <- readRDS('data/ihdp.rds')
```



Covariates
=======================================================================
```{r, child='ihdp_covariates.rmd'}
```



Propensity Score
=======================================================================